home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / LOAN REGULAR PAYMENT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  910b  |  26 lines
  1. 10  PRINT "REGULAR PAYMENT ON A LOAN";
  2. 19  REM     - ROUND OFF TO NEARES            T  CENT, PRINT 
  3. 20  PRINT 
  4. 29  REM  - STATEMENTS 30 TO 100 REQUEST USER INPUT
  5. 30  PRINT "TERM IN YEARS, MONTHS";
  6. 40  INPUT Y0,M
  7. 44  REM - CALCULATE YEARS FROM YEARS AND MONTHS
  8. 45 Y = (12 *Y0 +M)/12
  9. 50  PRINT "PRINCIPAL";
  10. 60  INPUT P
  11. 70  PRINT "ANNUAL INTEREST RATE";
  12. 80  INPUT I
  13. 90  PRINT "NUMBER OF PAYMENTS PER YEAR"
  14. 100  INPUT N
  15. 108  REM  - CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA
  16. 109  REM  - INTEREST CONVERTED FROM PERCENT TO DECIMAN FOR CALCULATIONS
  17. 110 R = ((I/100) *P/N)/(1 -1/((I/100)/N +1) ^(N *Y))
  18. 119  REM  - ROUND OFF TO NEAREST CENT, PRINT
  19. 120  PRINT "REGULAR PAYMENT = $"; INT(R *100 +.5)/100
  20. 129  REM  - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION
  21. 130  PRINT 
  22. 139  REM  - RESTART OR END PROGRAM
  23. 140  PRINT "MORE DATA? (1=YES, 0=NO)";
  24. 150  INPUT X
  25. 160  IF X = 1  THEN 20
  26. 170  PRINT "<CTRL-D>RUNHELLO"